home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / games2 / twast11.zip / TWASTMAC.ZIP / TWASSIST.SCR < prev    next >
Text File  |  1993-02-06  |  4KB  |  178 lines
  1. ;  TWASSIST.SCR (QModem v4.3 script to display the information that can be
  2. ;                used by TWASSIST)
  3. ;
  4. ;  02/06/93 - Albin Gersich
  5. ;
  6.  
  7. String  TWASSIST DATADIR
  8. Assign  TWASSIST  "c:\tw\twassist.exe"    ; PATH TO TWASSIST EXECUTABLE
  9. Assign  DATADIR   "c:\tw"                 ; DIRECTORY WHERE DATA FILES ARE
  10.  
  11. GetScr          ; SAVE SCREEN FOR RESTORATION LATER
  12.  
  13. Graphics ANSI
  14. TurnON   8_BIT
  15. TurnOFF  LINEFEED
  16. TurnON   XON/XOFF
  17. TurnON   NOISE
  18. TurnOFF  MUSIC
  19. TurnON   SCROLL
  20. TurnOFF  PRINT
  21. TurnOFF  ECHO
  22. TurnOFF  SPLIT
  23. TurnOFF  BS_DEL
  24. TurnON   STATUSLN
  25. TurnOFF  DOORWAY
  26.  
  27. TimeOut  200        ; Set Waitfor for 200 seconds
  28.  
  29. String  DO_VGS DO_FIGHTERS DO_MINES DO_AVOIDS DO_SECTORS DO_PORTS
  30. Assign  DO_VGS        FALSE
  31. Assign  DO_FIGHTERS   FALSE
  32. Assign  DO_MINES      FALSE
  33. Assign  DO_AVOIDS     FALSE
  34. Assign  DO_SECTORS    FALSE
  35. Assign  DO_PORTS      FALSE
  36. ;
  37. ;  CREATE A WINDOW TO PROMPT THE USER FOR
  38. ;  WHICH REPORTS THEY WANT TO CAPTURE
  39. ;
  40. String  KEY
  41. Box     10 5   70 20
  42. ClrScr
  43. GoToXY  2 2
  44. Display    "(T)W2002 Assistant"
  45. GoToXY  2 4
  46. Display    "(A)ll reports"
  47. GoToXY  2 5
  48. Display    "(C)IM sector and port reports"
  49. GoToXY  2 6
  50. Display    "(P)ort report"
  51. GoToXY  2 7
  52. Display    "(F)ighters, mines, and avoids"
  53. GoToXY  2 9
  54. Display    "E(x)it script"
  55. GET_SELECTION:
  56. GoToXY  2 11
  57. Display    "Your selection? "
  58. GetN    KEY   1
  59. If  "$KEY" = "T"   RUN_TWASSIST
  60. If  "$KEY" <> "A"  NOT_A
  61.     Assign  DO_VGS       TRUE
  62.     Assign  DO_FIGHTERS  TRUE
  63.     Assign  DO_MINES     TRUE
  64.     Assign  DO_AVOIDS    TRUE
  65.     Assign  DO_SECTORS   TRUE
  66.     Assign  DO_PORTS     TRUE
  67.     GoTo  DO_CAPTURE
  68. NOT_A:
  69. If  "$KEY" <> "C"  NOT_C
  70.     Assign  DO_SECTORS  TRUE
  71.     Assign  DO_PORTS    TRUE
  72.     GoTo  DO_CAPTURE
  73. NOT_C:
  74. If  "$KEY" <> "P"  NOT_P
  75.     Assign  DO_PORTS  TRUE
  76.     GoTo  DO_CAPTURE
  77. NOT_P:
  78. If  "$KEY" <> "F"  NOT_F
  79.     Assign  DO_FIGHTERS  TRUE
  80.     Assign  DO_MINES     TRUE
  81.     Assign  DO_AVOIDS    TRUE
  82.     GoTo  DO_CAPTURE
  83. NOT_F:
  84. If  "$KEY" <> "X"  NOT_X
  85.     ;Window  1 1 80 24    ;  RESTORE TO FULL WINDOW
  86.     PutScr               ; RESTORE ORIGINAL SCREEN
  87.     Exit
  88. NOT_X:
  89. GoTo  GET_SELECTION
  90.  
  91. ;
  92. ;  RUN TWASSIST
  93. ;
  94. RUN_TWASSIST:
  95. ;Window  1 1 80 24      ; RESTORE TO FULL WINDOW
  96. ;ClrScr
  97. PutScr                 ; RESTORE ORIGINAL SCREEN
  98. ;String  DIR
  99. ;Assign  DIR            ; ORIGINAL DIRECTORY
  100. CHDIR   $DATADIR
  101. BigDOS  "$TWASSIST"
  102. ;CHDIR   DIR           ; RESTORE ORIGINAL DIRECTORY
  103. Exit
  104. ;
  105. ;  CAPTURE TW REPORTS
  106. ;
  107. DO_CAPTURE:
  108. ;Window  1 1 80 24      ; RESTORE TO FULL WINDOW
  109. ;ClrScr
  110. PutScr                 ; RESTORE ORIGINAL SCREEN
  111. ;
  112. ;  VIEW GAME STATUS
  113. ;
  114. If  $DO_VGS = FALSE  SKIP_VGS
  115. Send     "V"
  116. Waitfor  "Command"
  117. SKIP_VGS:
  118. ;
  119. ;  DEPLOYED FIGHTER SCAN
  120. ;
  121. If  $DO_FIGHTERS = FALSE  SKIP_FIGHTERS
  122. Send     "G"
  123. Waitfor  "Command"
  124. SKIP_FIGHTERS:
  125. ;
  126. ;  DEPLOYED MINE SCAN
  127. ;
  128. If  $DO_MINES = FALSE  SKIP_MINES
  129. Send     "K"
  130. Waitfor  "Command"
  131. SKIP_MINES:
  132. ;
  133. ;  ENGAGE GAME COMPUTER
  134. ;
  135. Send     "C"
  136. Waitfor  "Computer command"
  137. ;
  138. ;  LIST CURRENT AVOIDS
  139. ;
  140. If  $DO_AVOIDS = FALSE  SKIP_AVOIDS
  141. Send     "X"
  142. Waitfor  "Computer command"
  143. SKIP_AVOIDS:
  144. ;
  145. ;  COMPUTER INTERROGATION MODE (CIM)
  146. ;
  147. Send     "╚╔╩╦╠═"
  148. Waitfor  ":"
  149. ;
  150. ;  CIM SECTOR REPORT
  151. ;
  152. If  $DO_SECTORS = FALSE  SKIP_SECTORS
  153. Send     "I"
  154. Waitfor  ":"
  155. SKIP_SECTORS:
  156. ;
  157. ;  CIM PORT REPORT
  158. ;
  159. If  $DO_PORTS = FALSE  SKIP_PORTS
  160. Send     "R"
  161. Waitfor  ":"
  162. SKIP_PORTS:
  163. ;
  164. ;  QUIT CIM
  165. ;
  166. Send     "Q"
  167. Waitfor  "Computer command"
  168. ;
  169. ;  QUIT GAME COMPUTER
  170. ;
  171. Send     "Q"
  172. Waitfor  "Command"
  173. ;
  174. ;  WE ARE BACK TO THE MAIN PROMPT
  175. ;  AND THE END OF THIS MACRO
  176. ;
  177. Exit
  178.